program pr;

Type

t_indice=1..10;
t_vector=Array[t_indice] of Char;

var 
x: entero;
exito: boolean;
vector: t_vector;


begin
x: prueba;
vector[2]:=’A’;
exito:=false;


End.